﻿Public Class EventArgsBaseClass
    Private _ReturnValue As String
    Public Property ReturnValue() As Integer
        Get
            Return _ReturnValue
        End Get
        Set(ByVal value As Integer)
            _ReturnValue = value
        End Set
    End Property
End Class

Public Delegate Sub FolderAddingEventHandler(ByVal sender As Object, ByVal args As FolderAddingEventArgs)
Public Class FolderAddingEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _NewFolderName As String
    Public Property NewFolderName() As String
        Get
            Return _NewFolderName
        End Get
        Set(ByVal value As String)
            _NewFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal NewFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _NewFolderName = NewFolderName_
    End Sub
End Class

Public Delegate Sub FolderAddedEventHandler(ByVal sender As Object, ByVal args As FolderAddedEventArgs)
Public Class FolderAddedEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _NewFolderName As String
    Public Property NewFolderName() As String
        Get
            Return _NewFolderName
        End Get
        Set(ByVal value As String)
            _NewFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal NewFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _NewFolderName = NewFolderName_
    End Sub
End Class

Public Delegate Sub FolderUpdatingEventHandler(ByVal sender As Object, ByVal args As FolderUpdatingEventArgs)
Public Class FolderUpdatingEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFolderName As String
    Public Property OrigFolderName() As String
        Get
            Return _OrigFolderName
        End Get
        Set(ByVal value As String)
            _OrigFolderName = value
        End Set
    End Property
    Private _NewFolderPath As String
    Public Property NewFolderPath() As String
        Get
            Return _NewFolderPath
        End Get
        Set(ByVal value As String)
            _NewFolderPath = value
        End Set
    End Property
    Private _NewFolderName As String
    Public Property NewFolderName() As String
        Get
            Return _NewFolderName
        End Get
        Set(ByVal value As String)
            _NewFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFolderName_ As String, ByVal NewFolderPath_ As String, ByVal NewFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFolderName = OrigFolderName_
        _NewFolderPath = NewFolderPath_
        _NewFolderName = NewFolderName_
    End Sub
End Class

Public Delegate Sub FolderUpdatedEventHandler(ByVal sender As Object, ByVal args As FolderUpdatedEventArgs)
Public Class FolderUpdatedEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFolderName As String
    Public Property OrigFolderName() As String
        Get
            Return _OrigFolderName
        End Get
        Set(ByVal value As String)
            _OrigFolderName = value
        End Set
    End Property
    Private _NewFolderPath As String
    Public Property NewFolderPath() As String
        Get
            Return _NewFolderPath
        End Get
        Set(ByVal value As String)
            _NewFolderPath = value
        End Set
    End Property
    Private _NewFolderName As String
    Public Property NewFolderName() As String
        Get
            Return _NewFolderName
        End Get
        Set(ByVal value As String)
            _NewFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFolderName_ As String, ByVal NewFolderPath_ As String, ByVal NewFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFolderName = OrigFolderName_
        _NewFolderPath = NewFolderPath_
        _NewFolderName = NewFolderName_
    End Sub
End Class

Public Delegate Sub FolderDeletingEventHandler(ByVal sender As Object, ByVal args As FolderDeletingEventArgs)
Public Class FolderDeletingEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFolderName As String
    Public Property OrigFolderName() As String
        Get
            Return _OrigFolderName
        End Get
        Set(ByVal value As String)
            _OrigFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFolderName = OrigFolderName_
    End Sub
End Class

Public Delegate Sub FolderDeletedEventHandler(ByVal sender As Object, ByVal args As FolderDeletedEventArgs)
Public Class FolderDeletedEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFolderName As String
    Public Property OrigFolderName() As String
        Get
            Return _OrigFolderName
        End Get
        Set(ByVal value As String)
            _OrigFolderName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFolderName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFolderName = OrigFolderName_
    End Sub
End Class

Public Delegate Sub FileUpdatingEventHandler(ByVal sender As Object, ByVal args As FileUpdatingEventArgs)
Public Class FileUpdatingEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFileName As String
    Public Property OrigFileName() As String
        Get
            Return _OrigFileName
        End Get
        Set(ByVal value As String)
            _OrigFileName = value
        End Set
    End Property
    Private _NewFolderPath As String
    Public Property NewFolderPath() As String
        Get
            Return _NewFolderPath
        End Get
        Set(ByVal value As String)
            _NewFolderPath = value
        End Set
    End Property
    Private _NewFileName As String
    Public Property NewFileName() As String
        Get
            Return _NewFileName
        End Get
        Set(ByVal value As String)
            _NewFileName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFileName_ As String, ByVal NewFolderPath_ As String, ByVal NewFileName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFileName = OrigFileName_
        _NewFolderPath = NewFolderPath_
        _NewFileName = NewFileName_
    End Sub
End Class

Public Delegate Sub FileUpdatedEventHandler(ByVal sender As Object, ByVal args As FileUpdatedEventArgs)
Public Class FileUpdatedEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFileName As String
    Public Property OrigFileName() As String
        Get
            Return _OrigFileName
        End Get
        Set(ByVal value As String)
            _OrigFileName = value
        End Set
    End Property
    Private _NewFolderPath As String
    Public Property NewFolderPath() As String
        Get
            Return _NewFolderPath
        End Get
        Set(ByVal value As String)
            _NewFolderPath = value
        End Set
    End Property
    Private _NewFileName As String
    Public Property NewFileName() As String
        Get
            Return _NewFileName
        End Get
        Set(ByVal value As String)
            _NewFileName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFileName_ As String, ByVal NewFolderPath_ As String, ByVal NewFileName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFileName = OrigFileName_
        _NewFolderPath = NewFolderPath_
        _NewFileName = NewFileName_
    End Sub
End Class

Public Delegate Sub FileDeletingEventHandler(ByVal sender As Object, ByVal args As FileDeletingEventArgs)
Public Class FileDeletingEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFileName As String
    Public Property OrigFileName() As String
        Get
            Return _OrigFileName
        End Get
        Set(ByVal value As String)
            _OrigFileName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFileName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFileName = OrigFileName_
    End Sub
End Class

Public Delegate Sub FileDeletedEventHandler(ByVal sender As Object, ByVal args As FileDeletedEventArgs)
Public Class FileDeletedEventArgs
    Inherits EventArgsBaseClass

    Private _OrigFolderPath As String
    Public Property OrigFolderPath() As String
        Get
            Return _OrigFolderPath
        End Get
        Set(ByVal value As String)
            _OrigFolderPath = value
        End Set
    End Property
    Private _OrigFileName As String
    Public Property OrigFileName() As String
        Get
            Return _OrigFileName
        End Get
        Set(ByVal value As String)
            _OrigFileName = value
        End Set
    End Property

    Public Sub New()
    End Sub
    Public Sub New(ByVal OrigFolderPath_ As String, ByVal OrigFileName_ As String)
        _OrigFolderPath = OrigFolderPath_
        _OrigFileName = OrigFileName_
    End Sub
End Class